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5 .FORTH WISEMAN 
10 GOSUB 800; GOSUB 700 
25 T=N+1;@(T)=0;C=0;NT=0 
30 GOSUB 100; IF SGOTO B0 
50 GOSUB 500; GOTO 30 
B0 CY=0; CX=-54 ; PRINT "STOP 
70 C=KP; GOTO 10 

100 A=@( C ) ; 5=0 
110 CY=24;CX=-G1 

120 PRINT #2, C+l , ; CX=-12; TU=@( C 1 
130 PRINT ; C=C+1 

140 IF (A>=4S)b( A< =57 )@(T)=@(T)b 10+A-48; RETURN 
150 IF A=88A=@( T ) ; @( T )=©( T- 1 ) ; @( T- 1 )=A; RETURN 
160 IF A=68T=T+1;@CT)=@(T-1>; RETURN 
170 IF A=84RETURN 
180 IF A=83S=1; RETURN 

180 IF A=80CY=8; CX=- 12; PRINT #5, @( T ) ;CY=16; RETURN 
200 IF fi=84T=T--l; RETURN 
210 IF A=96T=T+1;®(T)=0; RETURN 
220 IF A=43T— T- 1 ; @( T )=@( T+l )+@C T ) ; RETURN 
230 IF A=45T=T-1 ; @C T )=SK T )--@t T+l ) ; RETURN 
240 IF fl=88T=T-l ; @( T )=@( T+l )b@( T 3 ; RETURN 
250 IF A=99T=T-1;@( T)=@( T+l )c@CT); RETURN 

260 IF A=73T=T+l;CY=0;CX=-54; INPUT "INPUT ”@( T ) ; CY=1B; BOX -36, 0, 42, 9, 1 ; RETURN 
270 IF C A=63)bC@CT)=0)RETURN 
280 IF ft=G3C=C+l; RETURN 
290 IF A=97G0T0 400 
300 IF A=95G0T0 450 
305 IF A=81T=T+1;@(T)=T-N-1; RETURN 
310 IF A=66@(T)=@(T--@(T) ); RETURN 
320 CX=0; CY=-16 
330 PRINT “ILG OP" 

340 S=l; RETURN 

400 FOR C=CTO N; IF @( C )=84RETURN 
410 NEXT C 
420 C=0; RETURN 

450 FOR C=C-2T0 0STEP -1;IF @( C )=84RETURN 
460 NEXT C 
470 RETURN 
500 CX=-61 

510 PRINT #2,T-N, ; CX=~ 12 ; PRINT #5,@CT) 

530 BOX 23+RND ( 50 1 , RNB (401,2,4,2 

540 NT=3; MU=@( C 1 ; NT=0 

550 RETURN 

700 CY=~22;NT=3 

710 PRINT "ENTER PROGRAM 

720 A=KP; TU=A 

730 IF A=31N=N- 1 ; GOTO 720 

735 IF A=46@CN)=B3; RETURN 

740 @( N )=A; N=N+1 ; GOTO 720 

800 CLEAR ;C=0;N=0;NT=0 

80S CY=37 

810 PRINT " BALLY FORTH 
815 CY=24 



820 PRINT "IN# OP 

830 PRINT "ST# TOP 

840 PRINT ” DATA 

B60 BOX 0,18,160,52,3 
900 RETURN 
XR5JH- 

BALLY FORTH 
IN# ' OP 
ST# .,:'fop 



RUN 

BALLY BASIC 
>RUN 

BALLY FORTH 
IN# OP 

ST# TOP 

DATA 

ENTER PROGRAM 
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